; Music of Stainless Steel (1986) (Microgen)
; Ripped by Megachur the 28/02/2008

	write "STAINLES.BIN"

music_date_rip	equ &1c28
music_adr	equ &8000
first_theme	equ 0
last_theme	equ 0	; 0 -> 0

	read "music_header_v1_0.asm"
;
.init_music
;
	di
	ld a,#b8
	ld (l8075),a
	ld c,a
	ld a,#07
	call l1447
	inc a
	ld c,#00
	call l1447
	inc a
	call l1447
	inc a
	call l1447
	xor a
	ld (l8435),a
	ld (l8445),a
	ld (l8457),a
	ld (l8437),a
	ld (l8447),a
	ld (l8459),a
	ld a,#01
	ld (l842d),a
	ld (l843d),a
	ld (l844f),a
	xor a
	ld (l8081),a
	ld hl,l88d1
	ld (l808c),hl
	ld hl,l8a31
	ld (l808e),hl
	ld hl,l8800
	ld (l8090),hl
	ret		; modified by Megachur
	defs 2,0
.l804e
;call l8093		; modified by Megachur
	call #1409	; test player !
	ld hl,#1408
	ld b,#09
	ld a,(hl)
	or #e0
.l805c
	dec hl
	and (hl)
	djnz l805c
	inc a
	ret nz
	ld hl,#00d0
.l8065
	dec hl
	ld a,h
	or l
	jp nz,l8065
	jr l804e
.l8074 equ $ + 7
.l806d
	db #00,#00,#00,#00,#00,#00,#00,#00
.l8075
	db #00,#00,#00,#00,#00,#00,#00,#00
.l8082 equ $ + 5
.l8081 equ $ + 4
	db #00,#00,#00,#00,#00,#f6,#ed,#db
.l808c equ $ + 7
.l808b equ $ + 6
.l8088 equ $ + 3
.l8085
	db #01,#02,#04,#08,#10,#20,#00,#00
.l8090 equ $ + 3
.l808e equ $ + 1
	db #00,#00,#00,#00,#00,#03
;
.real_play_music
.l8093
;
	di
	push af
	push bc
	push de
	push hl
	push ix
	push iy
	ld a,(l8081)
	or a
	jp nz,l8102
	ld (l808b),a
	ld iy,l83cd
	ld ix,l842d
	ld hl,l83fd
	ld (l83cb),hl
	ld hl,(l808c)
	call l810b
	ld (l808c),hl
	ld a,(l8081)
	or a
	jp nz,l8102
	inc a
	ld (l808b),a
	ld iy,l83dd
	ld ix,l843d
	ld hl,l840d
	ld (l83cb),hl
	ld hl,(l808e)
	call l810b
	ld (l808e),hl
	ld a,(l8081)
	or a
	jp nz,l8102
	ld a,#02
	ld (l808b),a
	ld iy,l83ed
	ld ix,l844f
	ld hl,l841d
	ld (l83cb),hl
	ld hl,(l8090)
	call l810b
	ld (l8090),hl
.l8102
	pop iy
	pop ix
	pop hl
	pop de
	pop bc
	pop af
	ret
.l810b
	xor a
	ld (ix+#0f),a
	push hl
	ld l,(ix+#0b)
	ld h,(ix+#0c)
	ld e,(ix+#0d)
	ld d,(ix+#0e)
	add hl,de
	ld (ix+#0b),l
	ld (ix+#0c),h
	ld a,(ix+#05)
	ld c,l
	call l1447
	inc a
	ld c,h
	call l1447
	pop hl
	dec (ix+#00)
	jp z,l8163
	ld a,(ix+#01)
	or a
	jp z,l8143
	dec (ix+#01)
	jp nz,l8159
.l8143
	dec (ix+#06)
	jp nz,l8159
	ld a,(ix+#07)
	ld (ix+#06),a
	ld a,(ix+#03)
	or a
	jp z,l8159
	dec (ix+#03)
.l8159
	ld a,(ix+#04)
	ld c,(ix+#03)
	call l1447
	ret
.l8163
	ld a,(hl)
	cp #ff
	jp nz,l8198
	ld a,(ix+#08)
	or a
	jp z,l8183
	sub #02
	ld (ix+#08),a
	ld l,a
	ld h,#00
	push iy
	pop de
	add hl,de
	ld a,(hl)
	inc hl
	ld h,(hl)
	ld l,a
	jp l8163
.l8183
	ld a,#ff
	ld (l8081),a
	ld a,#08
	ld c,#00
	call l1447
	inc a
	call l1447
	inc a
	call l1447
	ret
.l8198
	cp #01
	jp nz,l81cd
	inc hl
	push hl
	ld a,(hl)
	add (ix+#09)
	ld hl,l806d
	add (hl)
	add a
	ld l,a
	ld h,#00
	ld (ix+#0d),h
	ld (ix+#0e),h
	ld de,l847a
	add hl,de
	ld c,(hl)
	ld (ix+#0b),c
	ld a,(ix+#05)
	call l1447
	inc hl
	ld c,(hl)
	ld (ix+#0c),c
	inc a
	call l1447
	pop hl
	inc hl
	jp l8163
.l81cd
	cp #02
	jp nz,l81f7
	inc hl
	ld a,(hl)
	ld (ix+#00),a
	ld a,(ix+#0f)
	or a
	jp z,l81e4
	ld a,(hl)
	push hl
	call l8398
	pop hl
.l81e4
	inc hl
	ld a,(hl)
	ld (ix+#01),a
	inc hl
	ld c,(ix+#02)
	ld (ix+#03),c
	ld a,(ix+#04)
	call l1447
	ret
.l81f7
	cp #04
	jp nz,l8225
	push hl
	ld a,(l808b)
	ld l,a
	ld h,#00
	ld (l8210),hl
	ld de,l8082
	add hl,de
	ld a,(hl)
	ld hl,l8075
	and (hl)
.l8210 equ $ + 1
	ld hl,#0000
	ld de,l8085
	add hl,de
	or (hl)
	ld (l8075),a
	ld c,a
	ld a,#07
	call l1447
	pop hl
	inc hl
	jp l8163
.l8225
	cp #05
	jp nz,l8239
	inc hl
	ld a,(hl)
	ld (l8074),a
	ld c,a
	ld a,#06
	call l1447
	inc hl
	jp l8163
.l8239
	cp #06
	jp nz,l825c
	inc hl
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	push de
	push hl
	push iy
	pop de
	ld a,(ix+#08)
	ld l,a
	ld h,#00
	add hl,de
	pop de
	ld (hl),e
	inc hl
	ld (hl),d
	add #02
	ld (ix+#08),a
	pop hl
	jp l8163
.l825c
	cp #07
	jp nz,l826a
	inc hl
	ld a,(hl)
	ld (ix+#09),a
	inc hl
	jp l8163
.l826a
	cp #08
	jp nz,l8278
	inc hl
	ld a,(hl)
	ld (l806d),a
	inc hl
	jp l8163
.l8278
	cp #09
	jp nz,l828f
	inc hl
	ld a,(hl)
	add (ix+#00)
	ld (ix+#00),a
	inc hl
	ld a,(hl)
	add (ix+#01)
	ld (ix+#01),a
	inc hl
	ret
.l828f
	cp #f6
	jp nz,l829c
	inc hl
	ld a,(hl)
	inc hl
	ld h,(hl)
	ld l,a
	jp l8163
.l829c
	cp #0b
	jp nz,l82ad
	inc hl
	ld a,(hl)
	ld (ix+#06),a
	ld (ix+#07),a
	inc hl
	jp l8163
.l82ad
	cp #0c
	jp nz,l82bb
	inc hl
	ld a,(hl)
	ld (ix+#02),a
	inc hl
	jp l8163
.l82bb
	cp #0d
	jp nz,l82d7
	inc hl
	ld a,(ix+#02)
	cp #0f
	jp z,l82ca
	inc a
.l82ca
	ld (ix+#02),a
	ld c,a
	ld a,(ix+#04)
	call l1447
	jp l8163
.l82d7
	cp #0e
	jp nz,l82f2
	inc hl
	ld a,(ix+#02)
	or a
	jp z,l82e5
	dec a
.l82e5
	ld (ix+#02),a
	ld c,a
	ld a,(ix+#04)
	call l1447
	jp l8163
.l82f2
	cp #fd
	jp nz,l8315
	ld a,(ix+#0a)
	add #03
	ld (ix+#0a),a
	inc hl
	ld b,(hl)
	inc hl
	push hl
	ld l,a
	ld h,#00
	ld de,(l83cb)
	add hl,de
	ld (hl),b
	pop de
	inc hl
	ld (hl),e
	inc hl
	ld (hl),d
	ex de,hl
	jp l8163
.l8315
	cp #10
	jp nz,l833f
	push hl
	ld l,(ix+#0a)
	ld h,#00
	ld de,(l83cb)
	add hl,de
	dec (hl)
	jp z,l8332
	inc hl
	ld e,(hl)
	inc hl
	ld d,(hl)
	ex de,hl
	pop de
	jp l8163
.l8332
	ld a,(ix+#0a)
	sub #03
	ld (ix+#0a),a
	pop hl
	inc hl
	jp l8163
.l833f
	cp #11
	jp nz,l8369
	ld a,#ff
	ld (ix+#0f),a
	inc hl
	push hl
	ld a,(hl)
	add (ix+#09)
	ld hl,l806d
	add (hl)
	add a
	ld l,a
	ld h,#00
	ld de,l847a
	add hl,de
	ld c,(hl)
	ld (ix+#0d),c
	inc hl
	ld c,(hl)
	ld (ix+#0e),c
	pop hl
	inc hl
	jp l8163
.l8369
	cp #12
	jp nz,l8397
	push hl
	ld a,(l808b)
	ld l,a
	ld h,#00
	ld (l8382),hl
	ld de,l8082
	add hl,de
	ld a,(hl)
	ld hl,l8075
	and (hl)
.l8382 equ $ + 1
	ld hl,#0000
	ld de,l8088
	add hl,de
	or (hl)
	ld (l8075),a
	ld c,a
	ld a,#07
	call l1447
	pop hl
	inc hl
	jp l8163
.l8397
	ret
.l8398
	ld (l8466),a
	ld l,(ix+#0b)
	ld h,(ix+#0c)
	ld c,(ix+#0d)
	ld b,(ix+#0e)
	sbc hl,bc
	push af
	jp nc,l83b3
	ex de,hl
	ld hl,#0001
	sbc hl,de
.l83b3
	ld c,l
	ld a,h
	call l8461
	ld l,c
	ld h,a
	pop af
	jp nc,l83c4
	ex de,hl
	ld hl,#0001
	sbc hl,de
.l83c4
	ld (ix+#0d),l
	ld (ix+#0e),h
	ret
.l83cd equ $ + 2
.l83cb
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l83dd equ $ + 2
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l83ed equ $ + 2
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l83fd equ $ + 2
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l840d equ $ + 2
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l841d equ $ + 2
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l842d equ $ + 2
	db #00,#00,#01,#01,#0f,#0f,#08,#00
.l8437 equ $ + 4
.l8435 equ $ + 2
	db #01,#01,#00,#00,#00,#00,#00,#00
.l843d equ $ + 2
	db #00,#00,#01,#01,#0f,#0f,#09,#02
.l8447 equ $ + 4
.l8445 equ $ + 2
	db #02,#02,#00,#00,#00,#00,#00,#00
.l844f equ $ + 4
	db #00,#00,#00,#00,#01,#01,#0f,#0f
.l8459 equ $ + 6
.l8457 equ $ + 4
	db #0a,#04,#02,#02,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00
.l8461
	ld hl,#0000
	ld d,h
.l8466 equ $ + 1
	ld e,#00
	ld b,#10
.l8469
	rl c
	rla
	adc hl,hl
	sbc hl,de
	jr l8473
	add hl,de
.l8473
	ccf
	djnz l8469
	rl c
	rla
	ret
.l847a
	dw #0000,#0777,#070c,#06a7
	dw #0647,#05ed,#0598,#0547
	dw #04fc,#04b4,#0470,#0431
	dw #03f4,#03bc,#0386,#0353
	dw #0324,#02f6,#02cc,#02a4
	dw #027e,#025a,#0238,#0218
	dw #01fa,#01de,#01c3,#01aa
	dw #0192,#017b,#0166,#0152
	dw #013f,#012d,#011c,#010c
	dw #00fd,#00ef,#00e1,#00d5
	dw #00c9,#00be,#00b3,#00a9
	dw #009f,#0096,#008e,#0086
	dw #007f,#0077,#0071,#006a
	dw #0064,#005f,#0059,#0054
	dw #0050,#004b,#0047,#0043
	dw #003f,#003c,#0038,#0035
	dw #0032,#002f,#002d,#002a
	dw #0028,#0026,#0024,#0022
	dw #0020
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00
	db #4d,#c6,#9e,#c6,#df,#c6,#10,#c7
	ld a,#2f
	jr l8554
	ld a,#2f
	ld bc,#03e8
	call l8563
.l8554
	ld bc,#0064
	call l8563
	ld bc,#000a
	call l8563
	ld bc,#0001
.l8563
	inc a
	and a
	sbc hl,bc
	jr nc,l8563
	add hl,bc
	ld c,#01
	call #1358
	inc e
	ld a,#2f
	ret
	ld bc,#6403
	call l8580
	ld b,#0a
	call l8580
	ld b,#01
.l8580
	ld h,#2f
.l8582
	inc h
	sub b
	jr nc,l8582
	add b
	ld l,a
	ld a,h
	call #1358
	ld a,l
	inc e
	ret
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#80,#40,#c0,#20,#a0,#60
	db #e0,#10,#90,#50,#d0,#30,#b0,#70
	db #f0,#08,#88,#48,#c8,#28,#a8,#68
	db #e8,#18,#98,#58,#d8,#38,#b8,#78
	db #f8,#04,#84,#44,#c4,#24,#a4,#64
	db #e4,#14,#94,#54,#d4,#34,#b4,#74
	db #f4,#0c,#8c,#4c,#cc,#2c,#ac,#6c
	db #ec,#1c,#9c,#5c,#dc,#3c,#bc,#7c
	db #fc,#02,#82,#42,#c2,#22,#a2,#62
	db #e2,#12,#92,#52,#d2,#32,#b2,#72
	db #f2,#0a,#8a,#4a,#ca,#2a,#aa,#6a
	db #ea,#1a,#9a,#5a,#da,#3a,#ba,#7a
	db #fa,#06,#86,#46,#c6,#26,#a6,#66
	db #e6,#16,#96,#56,#d6,#36,#b6,#76
	db #f6,#0e,#8e,#4e,#ce,#2e,#ae,#6e
	db #ee,#1e,#9e,#5e,#de,#3e,#be,#7e
	db #fe,#01,#81,#41,#c1,#21,#a1,#61
	db #e1,#11,#91,#51,#d1,#31,#b1,#71
	db #f1,#09,#89,#49,#c9,#29,#a9,#69
	db #e9,#19,#99,#59,#d9,#39,#b9,#79
	db #f9,#05,#85,#45,#c5,#25,#a5,#65
	db #e5,#15,#95,#55,#d5,#35,#b5,#75
	db #f5,#0d,#8d,#4d,#cd,#2d,#ad,#6d
	db #ed,#1d,#9d,#5d,#dd,#3d,#bd,#7d
	db #fd,#03,#83,#43,#c3,#23,#a3,#63
	db #e3,#13,#93,#53,#d3,#33,#b3,#73
	db #f3,#0b,#8b,#4b,#cb,#2b,#ab,#6b
	db #eb,#1b,#9b,#5b,#db,#3b,#bb,#7b
	db #fb,#07,#87,#47,#c7,#27,#a7,#67
	db #e7,#17,#97,#57,#d7,#37,#b7,#77
	db #f7,#0f,#8f,#4f,#cf,#2f,#af,#6f
	db #ef,#1f,#9f,#5f,#df,#3f,#bf,#7f
	db #ff
	ld a,(#bfe8)
	cp #02
	ret z
	ld a,(#04fe)
	or a
	jr nz,l8711
	ld a,(#bfd4)
	or a
	ret nz
.l8711
	call #0dae
	or a
	ret z
	ld a,#51
	ld (#bfd3),a
	ld (#bfd4),a
	ret
	db #00,#04,#80,#1f,#87,#00,#01,#80
	db #24,#87,#00,#08,#80,#29,#87,#00
	db #04,#80,#2e,#87,#3a,#e8,#bf,#0e
	db #03,#11,#1e,#01,#cd,#7e,#85,#c5
	db #11,#01,#02,#2a,#d6,#bf,#cd,#4c
	db #85,#c1,#c9,#fe,#c4,#20,#44,#45
	db #4d,#4f,#20,#4d,#4f,#44,#45,#20
	db #2d,#20,#50,#52,#45,#53,#53,#20
	db #53,#50,#41,#43,#45,#21,#20,#ff
	db #19,#5c,#32,#b8,#64,#b8,#82,#b8
	db #b4,#b8,#d2,#b8,#1e,#b8,#4b,#b8
	db #6e,#b8,#78,#b8,#96,#b8,#32,#98
	db #32,#b0,#64,#70,#64,#88,#a0,#a0
	db #a0,#b8,#dc,#78,#dc,#90,#14,#50
	db #28,#68,#28,#80,#14,#98,#0a,#50
	db #0f,#74,#0a,#98,#28,#60,#28,#88
	db #46,#74,#a8,#50,#81,#70,#3a,#48
	db #09,#6c,#00,#00,#3f,#3f,#35,#38
	db #30,#38,#00,#00,#ff,#ff,#55,#00
	db #00,#00,#00,#00,#fc,#f8,#5c,#18
	db #1c,#18,#30,#38,#30,#38,#30,#38
	db #30,#38,#1c,#18,#1c,#18,#1c,#18
	db #1c,#18,#30,#38,#30,#3f,#3f,#2a
	db #00,#00,#00,#00,#00,#ff,#ff,#aa
	db #00,#00,#1c,#18,#1c,#f8,#fc,#a8
	db #00,#00,#01,#03,#07,#0f,#1f,#3f
	db #7f,#ff,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l8800 equ $ + 1
	db #00,#0c,#0b,#0b,#0a,#fd,#02,#fd
	db #02,#07,#0c,#06,#75,#88,#07,#0a
	db #06,#75,#88,#07,#08,#06,#75,#88
	db #07,#07,#06,#75,#88,#10,#fd,#04
	db #07,#0c,#06,#b2,#88,#07,#0a,#06
	db #b2,#88,#07,#08,#06,#b2,#88,#07
	db #03,#06,#b2,#88,#10,#10,#07,#0c
	db #06,#75,#88,#07,#0a,#06,#75,#88
	db #07,#08,#06,#75,#88,#06,#75,#88
	db #07,#07,#06,#75,#88,#fd,#01,#07
	db #0c,#06,#75,#88,#07,#0a,#06,#75
	db #88,#07,#08,#06,#75,#88,#07,#07
	db #06,#75,#88,#10,#0c,#0f,#07,#00
	db #01,#27,#02,#c0,#60,#01,#00,#02
	db #c0,#c0,#f6,#00,#88,#ff,#01,#1b
	db #02,#30,#18,#01,#27,#02,#30,#18
	db #01,#1b,#02,#60,#30,#01,#1b,#02
	db #60,#30,#01,#27,#02,#30,#18,#01
	db #1b,#02,#60,#30,#01,#27,#02,#30
	db #18,#01,#1b,#02,#60,#30,#01,#1b
	db #02,#30,#18,#01,#27,#02,#30,#18
	db #01,#1b,#02,#30,#18,#01,#27,#02
	db #30,#18,#ff,#01,#27,#02,#30,#18
	db #01,#27,#02,#30,#18,#01,#1b,#02
	db #60,#30,#01,#1b,#02,#30,#18,#01
	db #27,#02,#30,#18,#01,#1b,#02,#60
.l88d1 equ $ + 2
	db #30,#ff,#0c,#0f,#07,#00,#fd,#02
	db #06,#84,#8b,#06,#de,#8b,#10,#06
	db #00,#8c,#0e,#0e,#06,#49,#8c,#0d
	db #0d,#fd,#02,#06,#84,#8b,#06,#de
	db #8b,#10,#06,#00,#8c,#0e,#0e,#06
	db #92,#8c,#02,#30,#30,#06,#92,#8c
	db #0d,#0d,#07,#0c,#06,#cf,#89,#07
	db #0a,#06,#00,#8a,#07,#08,#06,#2f
	db #89,#0c,#0f,#07,#00,#fd,#01,#06
	db #84,#8b,#06,#de,#8b,#10,#0c,#0f
	db #07,#00,#01,#22,#02,#c0,#60,#01
	db #00,#02,#c0,#c0,#f6,#d1,#88,#ff
	db #01,#27,#02,#18,#0c,#01,#29,#02
	db #18,#0c,#01,#2b,#02,#30,#18,#01
	db #27,#02,#30,#18,#01,#22,#02,#30
	db #18,#01,#27,#02,#30,#18,#01,#1f
	db #02,#30,#18,#01,#22,#02,#30,#18
	db #01,#27,#02,#30,#18,#01,#22,#02
	db #30,#18,#01,#27,#02,#30,#18,#01
	db #2b,#02,#30,#18,#01,#27,#02,#30
	db #18,#01,#2b,#02,#30,#18,#01,#2e
	db #02,#30,#18,#01,#2b,#02,#30,#18
	db #01,#2e,#02,#30,#18,#01,#33,#02
	db #30,#18,#fd,#02,#01,#26,#02,#30
	db #18,#01,#33,#02,#60,#30,#10,#fd
	db #03,#01,#26,#02,#30,#18,#01,#30
	db #02,#60,#30,#10,#fd,#03,#01,#26
	db #02,#30,#18,#01,#2d,#02,#60,#30
	db #10,#01,#21,#02,#30,#18,#01,#2a
	db #02,#60,#30,#01,#21,#02,#30,#18
	db #01,#2a,#02,#30,#18,#01,#21,#02
	db #30,#18,#01,#2a,#02,#60,#18,#ff
	db #fd,#02,#01,#27,#02,#18,#0c,#01
	db #29,#02,#18,#0c,#01,#2a,#02,#30
	db #18,#01,#27,#02,#30,#18,#01,#22
	db #02,#30,#18,#01,#27,#02,#30,#18
	db #01,#1e,#02,#30,#18,#01,#22,#02
	db #30,#18,#01,#1b,#02,#30,#18,#10
	db #ff,#fd,#02,#01,#27,#02,#18,#0c
	db #01,#29,#02,#18,#0c,#01,#2b,#02
	db #30,#18,#01,#27,#02,#30,#18,#01
	db #22,#02,#30,#18,#01,#27,#02,#30
	db #18,#01,#1f,#02,#30,#18,#01,#22
	db #02,#30,#18,#01,#1b,#02,#30,#18
.l8a31 equ $ + 2
	db #10,#ff,#0c,#0c,#04,#07,#00,#fd
	db #10,#06,#d2,#8a,#10,#12,#06,#f2
	db #8a,#0d,#0d,#06,#3b,#8b,#0e,#0e
	db #04,#fd,#10,#06,#d2,#8a,#10,#12
	db #06,#f2,#8a,#0d,#0d,#0d,#06,#d8
	db #8c,#0e,#0e,#0e,#04,#fd,#06,#06
	db #d2,#8a,#10,#12,#07,#08,#0d,#0d
	db #0d,#06,#8c,#8a,#0e,#0e,#0e,#0c
	db #0c,#04,#07,#00,#fd,#08,#06,#d2
	db #8a,#10,#0c,#0f,#12,#07,#00,#01
	db #1b,#02,#c0,#60,#01,#00,#02,#c0
	db #c0,#f6,#31,#8a,#ff,#fd,#02,#01
	db #26,#02,#30,#18,#01,#30,#02,#60
	db #30,#10,#fd,#03,#01,#26,#02,#30
	db #18,#01,#2d,#02,#60,#30,#10,#fd
	db #03,#01,#26,#02,#30,#18,#01,#2a
	db #02,#60,#30,#10,#01,#21,#02,#30
	db #18,#01,#26,#02,#60,#30,#01,#21
	db #02,#30,#18,#01,#26,#02,#30,#18
	db #01,#21,#02,#30,#18,#01,#26,#02
	db #60,#18,#ff,#0c,#0b,#0b,#03,#05
	db #08,#02,#30,#03,#02,#30,#03,#05
	db #1f,#02,#60,#03,#0d,#0d,#05,#08
	db #02,#60,#03,#05,#1f,#02,#60,#03
	db #0e,#0e,#ff,#fd,#02,#fd,#02,#01
	db #2a,#02,#30,#18,#01,#2e,#02,#60
	db #30,#10,#fd,#03,#01,#2a,#02,#30
	db #18,#01,#2e,#02,#60,#30,#10,#fd
	db #03,#01,#2a,#02,#30,#18,#01,#2f
	db #02,#60,#30,#10,#01,#2a,#02,#30
	db #18,#01,#2e,#02,#60,#30,#01,#2a
	db #02,#30,#18,#01,#2e,#02,#30,#18
	db #01,#2a,#02,#30,#18,#01,#2e,#02
	db #60,#30,#10,#ff,#fd,#02,#fd,#02
	db #01,#2e,#02,#30,#18,#01,#33,#02
	db #60,#30,#10,#fd,#03,#01,#2e,#02
	db #30,#18,#01,#31,#02,#60,#30,#10
	db #fd,#03,#01,#2f,#02,#30,#18,#01
	db #33,#02,#60,#30,#10,#01,#2e,#02
	db #30,#18,#01,#31,#02,#60,#30,#01
	db #2e,#02,#30,#18,#01,#31,#02,#30
	db #18,#01,#2e,#02,#30,#18,#01,#31
	db #02,#60,#30,#10,#ff,#fd,#03,#12
	db #0b,#1e,#01,#27,#02,#60,#18,#01
	db #22,#0e,#0e,#0b,#0f,#02,#60,#18
	db #01,#2e,#0b,#1e,#0d,#0d,#02,#60
	db #18,#01,#22,#0b,#0f,#0e,#0e,#02
	db #30,#18,#01,#2c,#0b,#1e,#0d,#0d
	db #02,#60,#18,#01,#22,#0b,#0f,#0e
	db #0e,#02,#30,#18,#01,#2a,#0b,#1e
	db #0d,#0d,#02,#60,#18,#01,#29,#02
	db #30,#18,#01,#2a,#02,#30,#18,#01
	db #29,#02,#30,#18,#01,#27,#0b,#07
	db #02,#30,#18,#0b,#0f,#10,#ff,#01
	db #27,#02,#c0,#c0,#09,#c0,#00,#01
	db #26,#02,#60,#30,#01,#27,#02,#30
	db #18,#01,#29,#02,#60,#30,#01,#27
	db #02,#30,#18,#01,#26,#02,#60,#30
	db #ff,#fd,#02,#fd,#02,#01,#2a,#02
	db #30,#18,#01,#33,#02,#60,#30,#10
	db #fd,#03,#01,#2a,#02,#30,#18,#01
	db #31,#02,#60,#30,#10,#fd,#03,#01
	db #2a,#02,#30,#18,#01,#33,#02,#60
	db #30,#10,#01,#2a,#02,#30,#18,#01
	db #31,#02,#60,#30,#01,#2a,#02,#30
	db #18,#01,#31,#02,#30,#18,#01,#2a
	db #02,#30,#18,#01,#31,#02,#60,#30
	db #10,#ff,#fd,#02,#fd,#02,#01,#2e
	db #02,#30,#18,#01,#36,#02,#60,#30
	db #10,#fd,#03,#01,#2e,#02,#30,#18
	db #01,#35,#02,#60,#30,#10,#fd,#03
	db #01,#2f,#02,#30,#18,#01,#36,#02
	db #60,#30,#10,#01,#2e,#02,#30,#18
	db #01,#36,#02,#60,#30,#01,#2e,#02
	db #30,#18,#01,#36,#02,#30,#18,#01
	db #2e,#02,#30,#18,#01,#36,#02,#60
	db #30,#10,#ff,#fd,#02,#01,#2e,#02
	db #30,#18,#01,#36,#02,#60,#30,#10
	db #fd,#03,#01,#2e,#02,#30,#18,#01
	db #35,#02,#60,#30,#10,#fd,#03,#01
	db #2f,#02,#30,#18,#01,#36,#02,#60
	db #30,#10,#01,#31,#02,#30,#18,#01
	db #3a,#02,#60,#30,#01,#31,#02,#30
	db #18,#01,#3a,#02,#30,#18,#01,#31
	db #02,#30,#18,#01,#3a,#02,#30,#18
	db #ff,#fd,#02,#fd,#02,#01,#2e,#02
	db #30,#18,#01,#33,#02,#60,#30,#10
	db #fd,#03,#01,#2e,#02,#30,#18,#01
	db #31,#02,#60,#30,#10,#fd,#03,#01
	db #2f,#02,#30,#18,#01,#33,#02,#60
	db #30,#10,#01,#31,#02,#30,#18,#01
	db #36,#02,#60,#30,#01,#31,#02,#30
	db #18,#01,#36,#02,#30,#18,#01,#31
	db #02,#30,#18,#01,#36,#02,#60,#30
	db #10,#ff
	
.l1447
	push bc
	push af
	ld b,#f4
	out (c),a
	ld b,#f6
	in a,(c)
	or #c0
	out (c),a
	and #3f
	out (c),a
	ld b,#f4
	out (c),c
	ld b,#f6
	ld c,a
	or #80
	out (c),a
	out (c),c
	pop af
	pop bc
	ret
;
.play_music
;
	call real_play_music
	call real_play_music
	call real_play_music
	call real_play_music
	jp real_play_music
;
.game_name
	db "Stainless Steel",0
.game_year
	db "1986",0
.game_publisher
	db "Microgen",0
.music_author
	db "",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
